rawdata <- c(55,56,98,100,15,12,33,45,32,67,82,19,25)

max(rawdata)
min(rawdata)
summary (rawdata)
mean (rawdata)

#plots graph
plot (rawdata)
plot (rawdata, type='b', xlab="Time in seconds", ylab="CPU usage")

#plot max/min/mean lines
abline(h=max(rawdata),v=0)
abline(h=min(rawdata),v=0)
abline(h=mean(rawdata),v=0)
